﻿Public Class Etiquette

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub
    Public ReadOnly Property NoSequence() As String
        Get
            Return txtNoSequence.Text
        End Get
    End Property

    Public ReadOnly Property NbCopie As Integer
        Get
            If (IsNumeric(txtNbCopie.Text)) Then
                Return CInt(txtNbCopie.Text)
            Else
                Return 1
            End If
        End Get
    End Property
End Class